home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qscripts.arc / CBC.SCR < prev    next >
Encoding:
Text File  |  1986-03-02  |  787 b   |  41 lines
  1. . This Script is for CBC Auto Logon
  2. . You can call Computerline Broadcasting Company at (612) 729-0408
  3. .
  4. . Replace FIRSTNAME, LASTNAME, and PASSWORD with your information.
  5.  
  6. Note      Logging onto CBC
  7.  
  8. $1      $2
  9. SCRIPT  BEEP.SCR        "CBC.SCR"
  10. BEEPRET:
  11.  
  12. .Send a return, wait one second, then send another return, etc.
  13. TRYAGAIN:
  14. SEND    "{"
  15. TIMEOUT 1       TRYAGAIN
  16.  
  17. WAITFOR "number: "
  18. SEND    "~cbc{"
  19.  
  20. .Now that they are on the horn, adjust the timeout to 30 seconds.
  21. TIMEOUT 30
  22.  
  23. WAITFOR "screen width> "
  24. SEND    "~80{"
  25.  
  26. WAITFOR "last name.....> "
  27. SEND    "~LASTNAME{"
  28.  
  29. WAITFOR "first name....> "
  30. SEND    "~FIRSTNAME{"
  31.  
  32. WAITFOR "PASSWORD......> "
  33. SEND    "~~P~A~S~S~W~O~R~D{"
  34.  
  35. BEEP    400
  36. BEEP    1600
  37. BEEP    400
  38. BEEP    1600
  39.  
  40. SCRIPT  END.SCR
  41.